www.gusucode.com > 红色大方的企业网站源码 1 > 红色大方的企业网站源码 1.0/qiye_red/admin/UserLock.asp
<%@language=vbscript codepage=936 %> <!--#include file="conn.asp"--> <!--#include file="admin.asp"--> <% dim UserID,Action,sql UserID=trim(Request("UserID")) Action=trim(request("Action")) if UserID<>"" then if Action="Lock" then sql="Update [User] set LockUser=true where UserID=" & CLng(UserID) else sql="Update [User] set LockUser=false where UserID=" & CLng(UserID) end if conn.Execute sql call CloseConn() end if response.redirect "UserManage.asp" %>